home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / WEBCHILL / WEB10.DCR / 00061.ls < prev    next >
Encoding:
Text File  |  1996-07-19  |  489 b   |  27 lines
  1. on sel1
  2.   global bore, sel, t1, drums, st
  3.   set bore to bore + 1
  4.   borecheck()
  5.   set sel to 1
  6.   if drums = 0 then
  7.     set st to 0
  8.     puppetSprite(1, 0)
  9.     set the width of sprite 1 to 512
  10.     puppetSound(1, 0)
  11.     puppetSound(1, 79)
  12.     set drums to 1
  13.   end if
  14.   if t1 = 2 then
  15.     puppetSound(4, 0)
  16.     puppetSound(3, 0)
  17.     puppetSound(3, 30)
  18.     puppetSound(4, 31)
  19.     set t1 to 3
  20.   else
  21.     puppetSound(4, 0)
  22.     puppetSound(3, 0)
  23.     puppetSound(4, 32)
  24.     set t1 to 2
  25.   end if
  26. end
  27.